VERSION 5.00
Object = "{626333F0-2712-44F7-AE40-FE533189137E}#8.0#0"; "UnicodeFullControl.ocx"
Object = "{2B16AE89-350D-4A56-A3E2-A46C22F5FFD6}#14.0#0"; "UniDataGrid.ocx"
Begin VB.Form Formchi 
   Caption         =   "[telex]Quarn Lys Chi"
   ClientHeight    =   7020
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   12570
   BeginProperty Font 
      Name            =   "Times New Roman"
      Size            =   8.25
      Charset         =   163
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7020
   ScaleWidth      =   12570
   Begin UnicodeControl.UniFrame UniFrame4 
      Height          =   1455
      Left            =   5760
      TabIndex        =   13
      Top             =   5520
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   2566
      Languages       =   1
      BackColor       =   -2147483633
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      StyleFrame      =   1
      OldHeight       =   1455
      UniToolTipText  =   "Formchi.frx":0000
      Caption         =   "Formchi.frx":0018
      ForeColor       =   -2147483635
      ForeHighlight   =   0
      ShowButton      =   0   'False
      Picture         =   "Formchi.frx":0058
      PictureType     =   0
      Begin UnicodeControl.UniLabel lblthang 
         Height          =   360
         Left            =   2280
         TabIndex        =   26
         Top             =   0
         Width           =   1065
         _ExtentX        =   1879
         _ExtentY        =   635
         ForeColor       =   255
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         BackStyle       =   0
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Caption         =   "Formchi.frx":0070
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":00A0
         Picture         =   "Formchi.frx":00B8
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel lbltongchi 
         Height          =   270
         Left            =   1080
         TabIndex        =   25
         Top             =   960
         Width           =   780
         _ExtentX        =   1376
         _ExtentY        =   476
         ForeColor       =   255
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Caption         =   "Formchi.frx":00D0
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":0100
         Picture         =   "Formchi.frx":0118
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel lblsolanchi 
         Height          =   270
         Left            =   1320
         TabIndex        =   22
         Top             =   360
         Width           =   780
         _ExtentX        =   1376
         _ExtentY        =   476
         ForeColor       =   255
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Caption         =   "Formchi.frx":0130
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":0160
         Picture         =   "Formchi.frx":0178
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel UniLabel7 
         Height          =   285
         Left            =   2040
         TabIndex        =   21
         Top             =   360
         Width           =   375
         _ExtentX        =   661
         _ExtentY        =   503
         ForeColor       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Languages       =   1
         Caption         =   "Formchi.frx":0190
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":01B6
         Picture         =   "Formchi.frx":01CE
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel UniLabel6 
         Height          =   285
         Left            =   120
         TabIndex        =   20
         Top             =   960
         Width           =   930
         _ExtentX        =   1640
         _ExtentY        =   503
         ForeColor       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         BackStyle       =   0
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Languages       =   1
         Caption         =   "Formchi.frx":01E6
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":021A
         Picture         =   "Formchi.frx":0232
         PictureType     =   0
      End
      Begin UnicodeControl.UniLabel UniLabel5 
         Height          =   285
         Left            =   120
         TabIndex        =   19
         Top             =   360
         Width           =   1080
         _ExtentX        =   1905
         _ExtentY        =   503
         ForeColor       =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         BackStyle       =   0
         BorderStyle     =   0
         AutoSize        =   -1  'True
         Languages       =   1
         Caption         =   "Formchi.frx":024A
         Link            =   "myspecialbox@yahoo.com.vn"
         ForeColorWordEffect=   0
         SpeedOrtherColor=   0
         UniToolTipText  =   "Formchi.frx":0282
         Picture         =   "Formchi.frx":029A
         PictureType     =   0
      End
   End
   Begin UnicodeControl.UniFrame UniFrame3 
      Height          =   4095
      Left            =   10800
      TabIndex        =   12
      Top             =   1320
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   7223
      Languages       =   1
      BackColor       =   -2147483633
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      StyleFrame      =   1
      OldHeight       =   4095
      UniToolTipText  =   "Formchi.frx":02B2
      Caption         =   "Formchi.frx":02CA
      ForeColor       =   -2147483635
      ForeHighlight   =   0
      ShowButton      =   0   'False
      Picture         =   "Formchi.frx":02FC
      PictureType     =   0
      Begin UnicodeControl.UniButton cmdluu2 
         Height          =   615
         Left            =   240
         TabIndex        =   27
         Top             =   2640
         Visible         =   0   'False
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":0314
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":0344
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":035C
      End
      Begin UnicodeControl.UniButton cmdluu 
         Height          =   615
         Left            =   240
         TabIndex        =   18
         Top             =   2640
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":0374
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":039A
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":03B2
      End
      Begin UnicodeControl.UniButton cmdxoa 
         Height          =   615
         Left            =   240
         TabIndex        =   17
         Top             =   1920
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":03CA
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":03F0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":0408
      End
      Begin UnicodeControl.UniButton cmdsua 
         Height          =   615
         Left            =   240
         TabIndex        =   16
         Top             =   1200
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":0420
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":0446
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":045E
      End
      Begin UnicodeControl.UniButton cmdhuy 
         Height          =   615
         Left            =   240
         TabIndex        =   15
         Top             =   3360
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":0476
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         Enabled         =   0   'False
         UniToolTipText  =   "Formchi.frx":049C
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":04B4
      End
      Begin UnicodeControl.UniButton cmdthem 
         Height          =   615
         Index           =   0
         Left            =   240
         TabIndex        =   14
         Top             =   480
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":04CC
         ButtonType      =   1
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":04F4
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":050C
      End
   End
   Begin UnicodeControl.UniFrame UniFrame1 
      Height          =   1215
      Left            =   5760
      TabIndex        =   11
      Top             =   0
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   2143
      Languages       =   1
      BackColor       =   -2147483633
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      StyleFrame      =   1
      OldHeight       =   1215
      UniToolTipText  =   "Formchi.frx":0524
      Caption         =   "Formchi.frx":053C
      ForeColor       =   -2147483635
      ForeHighlight   =   0
      ShowButton      =   0   'False
      Picture         =   "Formchi.frx":0554
      PictureType     =   0
      Begin UnicodeControl.UniButton UniButton1 
         Height          =   615
         Left            =   5400
         TabIndex        =   24
         Top             =   480
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   1085
         Caption         =   "Formchi.frx":056C
         ForeColor       =   255
         ForecolorSelected=   16711680
         Languages       =   1
         UniToolTipText  =   "Formchi.frx":059C
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   -1  'True
            Strikethrough   =   0   'False
         EndProperty
         EnableDoubleClick=   -1  'True
         Picture         =   "Formchi.frx":05B4
      End
      Begin UnicodeControl.UniDatePicker UniDatePicker1 
         Height          =   330
         Left            =   1320
         TabIndex        =   23
         Top             =   480
         Width           =   3765
         _ExtentX        =   6641
         _ExtentY        =   582
         MonthNames      =   "Formchi.frx":05CC
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MonthX          =   11
         DayX            =   30
         YearX           =   2012
         WeekNames       =   "Formchi.frx":0696
         CalendarType    =   1
         LongWeekNames   =   "Formchi.frx":06EC
         ShowToday       =   0   'False
         ShowNone        =   0   'False
      End
   End
   Begin UnicodeControl.UniDatePicker udpnt 
      Height          =   330
      Left            =   7200
      TabIndex        =   10
      Top             =   4440
      Width           =   3315
      _ExtentX        =   5847
      _ExtentY        =   582
      MonthNames      =   "Formchi.frx":077C
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MonthX          =   11
      DayX            =   24
      YearX           =   2012
      WeekNames       =   "Formchi.frx":0846
      CalendarType    =   1
      LongWeekNames   =   "Formchi.frx":089C
      ShowToday       =   0   'False
      ShowNone        =   0   'False
   End
   Begin UnicodeControl.NumericEdit sotien 
      Height          =   315
      Left            =   7080
      TabIndex        =   9
      Top             =   2040
      Width           =   3495
      _ExtentX        =   6165
      _ExtentY        =   556
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   2
      Text            =   ""
      UnitCurrency    =   "Formchi.frx":092C
   End
   Begin UnicodeControl.UniCombobox cbomtv 
      Height          =   315
      Left            =   9360
      TabIndex        =   8
      Top             =   1320
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   556
      Text            =   "Formchi.frx":0944
      ForeColor       =   -2147483640
      Enabled         =   0   'False
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ListIndex       =   0
      UniToolTipText  =   "Formchi.frx":095C
      Icon            =   -1
      Item            =   "Formchi.frx":0974
      ComboStyle      =   0
   End
   Begin UnicodeControl.UniCombobox cbotv 
      Height          =   315
      Left            =   7080
      TabIndex        =   7
      Top             =   1320
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   556
      Text            =   "Formchi.frx":098C
      ForeColor       =   -2147483640
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ListIndex       =   0
      UniToolTipText  =   "Formchi.frx":09A4
      Icon            =   -1
      Item            =   "Formchi.frx":09BC
      ComboStyle      =   0
   End
   Begin UnicodeControl.UniLabel UniLabel4 
      Height          =   345
      Left            =   5760
      TabIndex        =   6
      Top             =   4440
      Width           =   1080
      _ExtentX        =   1905
      _ExtentY        =   609
      ForeColor       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
      AutoSize        =   -1  'True
      Languages       =   1
      Caption         =   "Formchi.frx":09D4
      Link            =   "myspecialbox@yahoo.com.vn"
      ForeColorWordEffect=   0
      SpeedOrtherColor=   0
      UniToolTipText  =   "Formchi.frx":0A04
      Picture         =   "Formchi.frx":0A1C
      PictureType     =   0
   End
   Begin UnicodeControl.UniLabel UniLabel3 
      Height          =   345
      Left            =   5760
      TabIndex        =   4
      Top             =   2520
      Width           =   1185
      _ExtentX        =   2090
      _ExtentY        =   609
      ForeColor       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
      AutoSize        =   -1  'True
      Languages       =   1
      Caption         =   "Formchi.frx":0A34
      Link            =   "myspecialbox@yahoo.com.vn"
      ForeColorWordEffect=   0
      SpeedOrtherColor=   0
      UniToolTipText  =   "Formchi.frx":0A66
      Picture         =   "Formchi.frx":0A7E
      PictureType     =   0
   End
   Begin UnicodeControl.UniLabel UniLabel2 
      Height          =   345
      Left            =   5760
      TabIndex        =   3
      Top             =   2040
      Width           =   1230
      _ExtentX        =   2170
      _ExtentY        =   609
      ForeColor       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
      AutoSize        =   -1  'True
      Languages       =   1
      Caption         =   "Formchi.frx":0A96
      Link            =   "myspecialbox@yahoo.com.vn"
      ForeColorWordEffect=   0
      SpeedOrtherColor=   0
      UniToolTipText  =   "Formchi.frx":0AC8
      Picture         =   "Formchi.frx":0AE0
      PictureType     =   0
   End
   Begin UnicodeControl.UniLabel UniLabel1 
      Height          =   345
      Left            =   5760
      TabIndex        =   2
      Top             =   1320
      Width           =   1305
      _ExtentX        =   2302
      _ExtentY        =   609
      ForeColor       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
      AutoSize        =   -1  'True
      Languages       =   1
      Caption         =   "Formchi.frx":0AF8
      Link            =   "myspecialbox@yahoo.com.vn"
      ForeColorWordEffect=   0
      SpeedOrtherColor=   0
      UniToolTipText  =   "Formchi.frx":0B2C
      Picture         =   "Formchi.frx":0B44
      PictureType     =   0
   End
   Begin UnicodeControl.UniFrame UniFrame2 
      Height          =   6855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   12091
      Languages       =   1
      BackColor       =   -2147483633
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   12.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      StyleFrame      =   1
      OldHeight       =   6855
      UniToolTipText  =   "Formchi.frx":0B5C
      Caption         =   "Formchi.frx":0B74
      ForeColor       =   -2147483635
      ForeHighlight   =   0
      ShowButton      =   0   'False
      Picture         =   "Formchi.frx":0BAE
      PictureType     =   0
      Begin UnicodeControl.UniTitleBar UniTitleBar1 
         Left            =   2400
         Top             =   120
         _ExtentX        =   661
         _ExtentY        =   609
         Caption         =   "Formchi.frx":0BC6
         Languages       =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Times New Roman"
            Size            =   12.75
            Charset         =   163
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Icon            =   "Formchi.frx":0BFC
         IconLarge       =   "Formchi.frx":0C14
         DrawBar         =   0   'False
      End
      Begin UniDataGrid.UniGrid UniGrid1 
         Height          =   6255
         Left            =   120
         TabIndex        =   1
         Top             =   480
         Width           =   5295
         _ExtentX        =   9340
         _ExtentY        =   11033
         BeginProperty FontHeader {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty FontCell {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColorCell   =   0
         Style           =   3
         GridLine        =   -1  'True
         ColorGridLine   =   -2147483632
         ColorSelectedRow=   -2147483635
         ColorBorderSelectedRow=   -2147483635
         ForeColorSelectedCell=   -2147483634
      End
   End
   Begin UnicodeControl.UniTextBox txtldc 
      Height          =   1635
      Left            =   7080
      TabIndex        =   5
      Top             =   2520
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   2884
      Alignment       =   1
      UniToolTipText  =   "Formchi.frx":0C2C
      Appearance      =   0
      BackColor       =   -2147483643
      BorderStyle     =   2
      CaptureEnter    =   0   'False
      CaptureEsc      =   0   'False
      CaptureTab      =   0   'False
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      HideSelection   =   -1  'True
      Locked          =   0   'False
      MaxLength       =   -1
      MouseIcon       =   "Formchi.frx":0C44
      MousePointer    =   0
      MultiLine       =   -1  'True
      PasswordChar    =   ""
      RightToLeft     =   0   'False
      ScrollBars      =   0
      Text            =   "Formchi.frx":0C60
      UseEvents       =   -1  'True
   End
End
Attribute VB_Name = "Formchi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Call Module1.ConnecDB
    Call ViewData
    Call View_Combo
    Call View_ChiThang
    lblthang.Caption = Format(DateSerial(Year(Now), Month(Now), Day(Now)), "mm/yyyy")
    Call setDate
    cmdluu.Enabled = False
End Sub
Private Sub cmdhuy_Click()
    sotien.Text = ""
    txtldc.Text = ""
    cbotv.Enabled = True
    cmdluu.Visible = True
    cmdluu2.Visible = False
    cmdhuy.Enabled = False
End Sub

Private Sub cmdLuu_Click()
    If (sotien.Text = "") Or (txtldc.Text = "") Then
       loi = UnicodeMsgBox(UnicodeTelex("Bajn caafn nhaajp ddaafy ddur thoong tin !"), vbOKOnly, UnicodeTelex("Xasc Nhaajn"))
    Else
         
        Call GetValue
        rs.Update
        rs.Close
        UniGrid1.Columns.Clear
        Call ViewData
        UniGrid1.Refresh
    End If
        
End Sub
Private Sub cmdluu2_Click()
    Call GetValue2
    
    rs.Update
    rs.UpdateBatch
    rs.Close
    UniGrid1.Columns.Clear
    Call ViewData
    UniGrid1.Refresh
End Sub
Private Sub GetValue2()
    rs.Source = "select * from tblChi where MaTV= '" & Trim(cbomtv.Text) & "'"
    'rs.CursorType = adOpenDynamic
    rs.LockType = adLockBatchOptimistic
    rs.Open
    '..................
    ngay = Format(DateSerial(Year(udpnt.Value), Month(udpnt.Value), Day(udpnt.Value)), "mm/dd/YYYY")
    'If (rs.RecordCount > 0) Then
    
     'rs!tentv = cbotv.Text
     'rs!matv = cbomtv.Text
     rs!lydochi = txtldc.Text
     rs!khoanchi = sotien.Text
     rs!ngaychi = ngay
    'End If
End Sub
Private Sub cmdsua_Click()
    cmdhuy.Enabled = True
    cbotv.Enabled = False
    cmdluu.Enabled = False
    cmdluu2.Visible = True
End Sub

Private Sub cmdthem_Click(Index As Integer)
    cmdhuy.Enabled = True
    cmdluu.Visible = True
    cmdluu2.Visible = False
    cmdluu.Enabled = True
    
    Call ReSetValue
    sotien.SetFocus
    Call setDate
End Sub
'Xoa
Private Sub cmdxoa_Click()
     Dim xoa
    rs.Source = "select * from tblchi where matv= '" & Trim(cbomtv.Text) & "' and lydochi='" & Trim(txtldc.Text) & "'"
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Open
    xoa = UnicodeMsgBox(UnicodeTelex("Bajn cos chawsc chawsn xosa khoong ?"), vbInformation + vbYesNo, UnicodeTelex("Xasc Nhaajn"))
    If xoa = vbYes Then
        If Not rs.EOF Then
        rs.Delete
        End If
    End If
    rs.Close
     UniGrid1.Columns.Clear
     Call ViewData
     UniGrid1.Refresh
End Sub
'Hien thi du lieu len Grid
Private Sub ViewData()
    'Call Module1.ConnecDB
    UniGrid1.Columns.Add UnicodeText("Te6n Tha2nh Vie6n"), "ttv", 85
    UniGrid1.Columns.Add UnicodeText("Ly1 Do Chi"), "ldt", 85
    UniGrid1.Columns.Add UnicodeText("Khoa3n Chi"), "kt", 100
    UniGrid1.Columns.Add UnicodeText("Nga2y Chi"), "nt", 100
    UniGrid1.Columns.Add UnicodeText("Ma4 Tha2nh Vie6n"), "mtv", 100
    rs.Open "select tblchi.matv,tblchi.matv, tblthanhvien.tentv, lydochi, khoanchi, ngaychi from tblchi, tblthanhvien where tblchi.Matv=tblthanhvien.matv", db
   Do While rs.EOF = False
        UniGrid1.Columns.InsertRow rs!tentv, rs!lydochi, rs!khoanchi, rs!ngaychi, rs!matv
        rs.MoveNext
    Loop
    rs.Close
End Sub
' Hien thi du lieu len combobox
Private Sub View_Combo()
    rs.Open "Select * from tblthanhvien", db
    With rs
        Do While Not .EOF
            cbotv.AddItem (rs!tentv)
            .MoveNext
        Loop
    End With
    cbotv.Refresh
    'rs.Close
End Sub

'Xoa trong
Private Sub ReSetValue()
    sotien.Text = ""
    txtldc.Text = ""
End Sub
'Them du lieu vao recordset
Private Sub GetValue()
    rs.Source = "select * from tblchi"
    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.Open
    '..................
    rs.AddNew
    ngay = Format(DateSerial(Year(udpnt.Value), Month(udpnt.Value), Day(udpnt.Value)), "mm/dd/YYYY")
    'rs!tentv = cbotv.Text
    rs!matv = cbomtv.Text
    rs!lydochi = txtldc.Text
    rs!khoanchi = sotien.Text
    rs!ngaychi = ngay
    UniGrid1.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'Call Module1.ConnecDB
End Sub

Private Sub UniGrid1_ColumnClick(ByVal ColumnIndex As Long)
    UniGrid1.Columns(ColumnIndex).Sort = IIf(UniGrid1.Columns(ColumnIndex).Sort = 1, 2, 1)
    UniGrid1.Columns.Sort ColumnIndex
End Sub

Private Sub UniGrid1_SelectedRowChange(RowIndex As Long)
    cbotv.Text = UniGrid1.Columns(0).CellValue(RowIndex)
    sotien.Text = UniGrid1.Columns(2).CellValue(RowIndex)
    txtldc.Text = UniGrid1.Columns(1).CellValue(RowIndex)
    cbomtv.Text = UniGrid1.Columns(4).CellValue(RowIndex)
    udpnt.Value = UniGrid1.Columns(3).CellValue(RowIndex)
End Sub

'View So lan thu trong 1 thang
Private Sub View_ThuThang()
    rs.Close
    thangnam = Format(DateSerial(Year(Now), Month(Now), Day(Now)), "mm/yyyy")
    rs.Open "select  count(khoanthu) as kt, sum(khoanthu) as tongthu from tblthu where format(ngaythu, 'mm/yyyy') = '" & thangnam & "'", db
    lblsolanthu.Caption = rs!kt
    lbltongthu.Caption = rs!tongthu & "  VND"
    rs.Close
End Sub
Private Sub setDate()
    udpnt.DayX = Day(Now)
    udpnt.MonthX = Month(Now)
    udpnt.YearX = Year(Now)
End Sub
'Chon ten ==> loc ma
Private Sub cbotv_Change()
    Call Fill2Combo
    sotien.Text = ""
    txtldc.Text = ""
End Sub

Private Sub cbotv_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        If cbotv.Tag <> "" Then
            UniGrid1.Columns(0).CellValue(Val(cbotv.Tag)) = Combo1.Text
            cbotv.Visible = False
            UniGrid1.SetFocus
        End If
    End If
End Sub
' loc du lieu giua 2 combobox
Private Sub Fill2Combo()
    On Error Resume Next
    
    rs.Open "select matv,tentv from tblthanhvien where tentv= '" & Trim(cbotv.Text) & "'", db
    cbomtv.Text = rs!matv
    rs.Close
    Resume Next
End Sub
Private Sub View_ChiThang()
    rs.Close
    thangnam = Format(DateSerial(Year(Now), Month(Now), Day(Now)), "mm/yyyy")
    rs.Open "select  count(khoanchi) as kt, sum(khoanchi) as tongchi from tblchi where format(ngaychi, 'mm/yyyy') = '" & thangnam & "'", db
    lblsolanchi.Caption = rs!kt
    lbltongchi.Caption = rs!tongchi & "  VND"
    rs.Close
End Sub
Private Sub GetcurrentRecord()
   
    cbotv.Text = rs!tentv
    cbomtv.Text = rs!matv
    sotien.Text = rs!khoanchi
    txtldc.Text = rs!lydochi
    ngay = Format(DateSerial(Year(udpnt.Value), Month(udpnt.Value), Day(udpnt.Value)), "mm/dd/YYYY")
    ngay = rs!ngaychi
    
End Sub
